object fmMontajYapmaDokunmatik: TfmMontajYapmaDokunmatik
  Tag = 224
  Left = 105
  Top = 17
  BorderStyle = bsNone
  Caption = #220'retim'
  ClientHeight = 653
  ClientWidth = 1016
  Color = clBtnFace
  Font.Charset = TURKISH_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  KeyPreview = True
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poDesktopCenter
  Visible = True
  WindowState = wsMaximized
  OnActivate = FormActivate
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object GroupBox5: TGroupBox
    Left = 544
    Top = 0
    Width = 673
    Height = 617
    Caption = #220'retim Emirleri'
    TabOrder = 12
    object Label20: TLabel
      Left = 10
      Top = 237
      Width = 45
      Height = 16
      Caption = 'Emir No'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object k2: TShape
      Left = 354
      Top = 17
      Width = 57
      Height = 50
      Brush.Color = clBtnFace
      Pen.Color = 12500670
      Visible = False
    end
    object k1: TShape
      Left = 413
      Top = 17
      Width = 57
      Height = 50
      Brush.Color = clBtnFace
      Pen.Color = 12500670
      Visible = False
    end
    object y1: TLabel
      Left = 362
      Top = 30
      Width = 39
      Height = 30
      Alignment = taCenter
      AutoSize = False
      Caption = '11'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clRed
      Font.Height = -19
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
      Visible = False
    end
    object y2: TLabel
      Left = 422
      Top = 30
      Width = 39
      Height = 30
      Alignment = taCenter
      AutoSize = False
      Caption = '11'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clRed
      Font.Height = -19
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
      Visible = False
    end
    object k3: TShape
      Left = 473
      Top = 17
      Width = 57
      Height = 50
      Brush.Color = clBtnFace
      Pen.Color = 12500670
      Visible = False
    end
    object y3: TLabel
      Left = 481
      Top = 30
      Width = 39
      Height = 30
      Alignment = taCenter
      AutoSize = False
      Caption = '11'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clRed
      Font.Height = -19
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
      Visible = False
    end
    object k4: TShape
      Left = 532
      Top = 17
      Width = 57
      Height = 50
      Brush.Color = clBtnFace
      Pen.Color = 12500670
      Visible = False
    end
    object y4: TLabel
      Left = 540
      Top = 30
      Width = 39
      Height = 30
      Alignment = taCenter
      AutoSize = False
      Caption = '11'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clRed
      Font.Height = -19
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
      Visible = False
    end
    object k5: TShape
      Left = 591
      Top = 17
      Width = 57
      Height = 50
      Brush.Color = clBtnFace
      Pen.Color = 12500670
      Visible = False
    end
    object y5: TLabel
      Left = 599
      Top = 30
      Width = 39
      Height = 30
      Alignment = taCenter
      AutoSize = False
      Caption = '11'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clRed
      Font.Height = -19
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
      Visible = False
    end
    object Shape1: TShape
      Left = 601
      Top = 265
      Width = 65
      Height = 50
      Brush.Color = clBtnFace
      Pen.Color = 12500670
    end
    object lblUrEmriAdet: TLabel
      Left = 602
      Top = 278
      Width = 63
      Height = 30
      Alignment = taCenter
      AutoSize = False
      Caption = 'Adet'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlue
      Font.Height = -19
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object Label21: TLabel
      Left = 488
      Top = 282
      Width = 109
      Height = 16
      Caption = #220'retim Emri Adet'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object wwDBGrid1: TwwDBGrid
      Left = 6
      Top = 77
      Width = 659
      Height = 151
      DisableThemes = False
      Selected.Strings = (
        'emirno'#9'6'#9'Emir No'#9#9
        'stokkodu'#9'15'#9'Stok Kodu'#9#9
        'miktar'#9'5'#9'Miktar'#9'F'
        'tarih'#9'9'#9'Tarih'#9'F'#9
        'aciklama'#9'50'#9'A'#231#305'klama'#9#9)
      IniAttributes.Delimiter = ';;'
      TitleColor = clBtnFace
      FixedCols = 0
      ShowHorzScrollBar = True
      Color = 14811135
      DataSource = emirliS
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      KeyOptions = []
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgCancelOnExit, dgWordWrap]
      ParentFont = False
      TabOrder = 0
      TitleAlignment = taLeftJustify
      TitleFont.Charset = TURKISH_CHARSET
      TitleFont.Color = clBlack
      TitleFont.Height = -11
      TitleFont.Name = 'Arial'
      TitleFont.Style = [fsBold]
      TitleLines = 1
      TitleButtons = True
      UseTFields = False
      OnDblClick = wwDBGrid1DblClick
      IndicatorIconColor = clMaroon
    end
    object wwDBGrid2: TwwDBGrid
      Left = 6
      Top = 317
      Width = 403
      Height = 246
      DisableThemes = False
      Selected.Strings = (
        'stokkodu'#9'32'#9'Stok Kodu'#9'F'
        'miktar'#9'7'#9'Miktar'#9#9
        'yapilan'#9'10'#9'Yap'#305'lan'#9'F')
      IniAttributes.Delimiter = ';;'
      TitleColor = clBtnFace
      FixedCols = 0
      ShowHorzScrollBar = True
      Color = 14811135
      DataSource = dsemirlishar
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      KeyOptions = []
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgCancelOnExit, dgWordWrap]
      ParentFont = False
      TabOrder = 1
      TitleAlignment = taLeftJustify
      TitleFont.Charset = TURKISH_CHARSET
      TitleFont.Color = clBlack
      TitleFont.Height = -11
      TitleFont.Name = 'Arial'
      TitleFont.Style = [fsBold]
      TitleLines = 1
      TitleButtons = True
      UseTFields = False
      OnCalcCellColors = wwDBGrid2CalcCellColors
      IndicatorIconColor = clMaroon
    end
    object EmirNok: TEdit
      Left = 60
      Top = 230
      Width = 78
      Height = 30
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnEnter = EmirNokEnter
      OnExit = EmirNokExit
      OnKeyPress = EmirNokKeyPress
    end
    object bemirnobul: TBitBtn
      Left = 7
      Top = 263
      Width = 96
      Height = 50
      Caption = 'Se'#231
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
      OnClick = bemirnobulClick
    end
    object BitBtn2: TBitBtn
      Left = 303
      Top = 263
      Width = 90
      Height = 50
      Caption = 'Yenile'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 4
      OnClick = BitBtn2Click
    end
    object bmodeldegistir: TBitBtn
      Left = 105
      Top = 263
      Width = 96
      Height = 50
      Caption = 'Mod.De'#287'.'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 5
      OnClick = bmodeldegistirClick
    end
    object SonYazilanEmirNo: TMemo
      Left = 360
      Top = 184
      Width = 129
      Height = 41
      TabOrder = 6
      Visible = False
      WordWrap = False
    end
    object bmakinano: TBitBtn
      Left = 204
      Top = 263
      Width = 96
      Height = 50
      Caption = 'Makine No'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 7
      OnClick = bmakinanoClick
    end
    object CDRomk: TMemo
      Left = 88
      Top = 392
      Width = 185
      Height = 89
      Lines.Strings = (
        'CDRomk')
      TabOrder = 8
      Visible = False
    end
    object bbekleme: TBitBtn
      Left = 394
      Top = 263
      Width = 87
      Height = 50
      Caption = 'Bekleme'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 9
      OnClick = bbeklemeClick
    end
    object cbComboSecim: TwwDBComboBox
      Left = 147
      Top = 230
      Width = 239
      Height = 30
      ShowButton = True
      Style = csDropDown
      MapList = True
      AllowClearKey = False
      AutoDropDown = True
      DropDownCount = 8
      Enabled = False
      Font.Charset = TURKISH_CHARSET
      Font.Color = clRed
      Font.Height = -19
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ItemHeight = 0
      Items.Strings = (
        #304#351'lem Ba'#351'lang'#305#231#9'1'
        #220#231'l'#252' Grup'#9'2'
        #304#351'lem Devam'#9'3')
      ItemIndex = 0
      ParentFont = False
      Sorted = False
      TabOrder = 10
      UnboundDataType = wwDefault
      OnChange = cbComboSecimChange
    end
    object TarihSec: TGroupBox
      Left = 5
      Top = 11
      Width = 186
      Height = 63
      BiDiMode = bdLeftToRight
      ParentBiDiMode = False
      TabOrder = 11
      object Label18: TLabel
        Left = 6
        Top = 16
        Width = 38
        Height = 13
        Caption = #304'lk Tarih'
        Font.Charset = TURKISH_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label19: TLabel
        Left = 5
        Top = 42
        Width = 45
        Height = 13
        Caption = 'Son Tarih'
        Font.Charset = TURKISH_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object t1: TwwDBDateTimePicker
        Left = 53
        Top = 12
        Width = 82
        Height = 22
        CalendarAttributes.Font.Charset = DEFAULT_CHARSET
        CalendarAttributes.Font.Color = clWindowText
        CalendarAttributes.Font.Height = -11
        CalendarAttributes.Font.Name = 'MS Sans Serif'
        CalendarAttributes.Font.Style = []
        Epoch = 1950
        Font.Charset = TURKISH_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        ShowButton = True
        TabOrder = 0
        DisplayFormat = 'dd-mm-yyyy'
      end
      object t2: TwwDBDateTimePicker
        Left = 53
        Top = 37
        Width = 82
        Height = 22
        CalendarAttributes.Font.Charset = DEFAULT_CHARSET
        CalendarAttributes.Font.Color = clWindowText
        CalendarAttributes.Font.Height = -11
        CalendarAttributes.Font.Name = 'MS Sans Serif'
        CalendarAttributes.Font.Style = []
        Epoch = 1950
        Font.Charset = TURKISH_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        ShowButton = True
        TabOrder = 1
        DisplayFormat = 'dd-mm-yyyy'
      end
    end
    object ChkTarih: TCheckBox
      Left = 148
      Top = 12
      Width = 41
      Height = 17
      Alignment = taLeftJustify
      Caption = 'Aktif'
      TabOrder = 12
      OnClick = ChkTarihClick
    end
    object blistele: TBitBtn
      Left = 276
      Top = 47
      Width = 52
      Height = 25
      Caption = 'Listele'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 13
      OnClick = blisteleClick
    end
    object ComboBox1: TComboBox
      Left = 408
      Top = 112
      Width = 145
      Height = 22
      ItemHeight = 14
      TabOrder = 14
      Text = 'ComboBox1'
      Visible = False
    end
    object ComboBox2: TComboBox
      Left = 408
      Top = 88
      Width = 145
      Height = 22
      ItemHeight = 14
      TabOrder = 15
      Text = 'ComboBox2'
      Visible = False
    end
    object cboSistem: TComboBox
      Left = 193
      Top = 14
      Width = 136
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      TabOrder = 16
      OnCloseUp = cboSistemCloseUp
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 634
    Width = 1016
    Height = 19
    Panels = <>
  end
  object Panel1: TPanel
    Left = 9
    Top = 158
    Width = 525
    Height = 41
    BevelOuter = bvNone
    BevelWidth = 2
    Font.Charset = TURKISH_CHARSET
    Font.Color = clMaroon
    Font.Height = -16
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 200
    Width = 521
    Height = 302
    Color = 14811135
    DataSource = dm.spmakinalistes
    Font.Charset = TURKISH_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 1
    TitleFont.Charset = TURKISH_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Arial'
    TitleFont.Style = [fsBold]
    Columns = <
      item
        Expanded = False
        FieldName = 'serinos'
        Title.Caption = 'Seri No'
        Width = 119
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'stokkodu'
        Title.Caption = 'Stok kodu'
        Width = 100
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'cinsi'
        Title.Caption = 'Cinsi'
        Width = 272
        Visible = True
      end>
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 0
    Width = 529
    Height = 89
    TabOrder = 2
    object Label5: TLabel
      Left = 171
      Top = 18
      Width = 55
      Height = 16
      AutoSize = False
      Caption = 'Stok Kodu'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label6: TLabel
      Left = 16
      Top = 18
      Width = 55
      Height = 16
      AutoSize = False
      Caption = #220'retim No'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label7: TLabel
      Left = 16
      Top = 42
      Width = 31
      Height = 16
      AutoSize = False
      Caption = 'Tarih'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label8: TLabel
      Left = 171
      Top = 42
      Width = 31
      Height = 16
      AutoSize = False
      Caption = 'Cinsi'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label17: TLabel
      Left = 16
      Top = 66
      Width = 57
      Height = 16
      AutoSize = False
      Caption = 'A'#231#305'klama'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object edStokkodu: TEdit
      Tag = 1
      Left = 237
      Top = 10
      Width = 185
      Height = 22
      TabStop = False
      Color = 14811135
      Font.Charset = TURKISH_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      ReadOnly = True
      TabOrder = 2
      OnKeyPress = Sonraki
    end
    object edUretimno: TEdit
      Left = 72
      Top = 10
      Width = 78
      Height = 22
      TabStop = False
      Color = 14811135
      Font.Charset = TURKISH_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
    end
    object edcinsi: TEdit
      Tag = 2
      Left = 237
      Top = 34
      Width = 276
      Height = 22
      TabStop = False
      Color = 14811135
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 3
      OnKeyPress = Sonraki
    end
    object edTarih: TwwDBDateTimePicker
      Left = 72
      Top = 34
      Width = 79
      Height = 22
      TabStop = False
      CalendarAttributes.Font.Charset = DEFAULT_CHARSET
      CalendarAttributes.Font.Color = clWindowText
      CalendarAttributes.Font.Height = -11
      CalendarAttributes.Font.Name = 'MS Sans Serif'
      CalendarAttributes.Font.Style = []
      Color = 14811135
      Epoch = 1950
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      ShowButton = True
      TabOrder = 1
      OnKeyPress = Sonraki
    end
    object ack: TEdit
      Tag = 2
      Left = 72
      Top = 58
      Width = 441
      Height = 22
      TabStop = False
      Color = 14811135
      Font.Charset = TURKISH_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      ReadOnly = True
      TabOrder = 4
      OnKeyPress = Sonraki
    end
  end
  object GroupBox2: TGroupBox
    Left = 8
    Top = 88
    Width = 529
    Height = 65
    TabOrder = 3
    object Label9: TLabel
      Left = 16
      Top = 44
      Width = 57
      Height = 16
      AutoSize = False
      Caption = 'Makina No'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label3: TLabel
      Left = 256
      Top = 20
      Width = 71
      Height = 16
      AutoSize = False
      Caption = 'Personel Kodu'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label2: TLabel
      Left = 256
      Top = 44
      Width = 71
      Height = 16
      AutoSize = False
      Caption = 'Personel Ad'#305
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label1: TLabel
      Left = 16
      Top = 20
      Width = 49
      Height = 16
      AutoSize = False
      Caption = 'SeriNo'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object bserino: TSpeedButton
      Left = 228
      Top = 12
      Width = 23
      Height = 23
      Caption = '...'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      OnClick = bserinoClick
    end
    object edSeriNo: TEdit
      Left = 448
      Top = 10
      Width = 73
      Height = 22
      CharCase = ecUpperCase
      TabOrder = 0
      Visible = False
      OnKeyPress = edSeriNoKeyPress
    end
    object edMakinaNo: TwwDBEdit
      Left = 72
      Top = 36
      Width = 153
      Height = 22
      Color = 14811135
      DataField = 'makinano'
      DataSource = dm.spuretims
      ReadOnly = True
      TabOrder = 1
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object EdPerAdi: TwwDBLookupCombo
      Left = 336
      Top = 36
      Width = 185
      Height = 21
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      DisableThemes = False
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'pismi'#9'25'#9'pismi'#9'F'
        'pkodu'#9'5'#9'pkodu'#9'F'
        'PerKod'#9'10'#9'PerKod'#9'F')
      DataField = 'perkod'
      DataSource = dm.spuretims
      LookupTable = dm.sppersonel
      LookupField = 'PerKod'
      Options = [loColLines, loTitles]
      Color = 14811135
      Navigator = False
      ParentFont = False
      ReadOnly = True
      TabOrder = 2
      AutoDropDown = True
      ShowButton = False
      UseTFields = False
      AllowClearKey = False
      ShowMatchText = True
      OnKeyPress = Sonraki
    end
    object wwDBLookupCombo1: TwwDBLookupCombo
      Left = 336
      Top = 12
      Width = 105
      Height = 21
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      DisableThemes = False
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'pkodu'#9'5'#9'pkodu'#9'F')
      DataField = 'perkod'
      DataSource = dm.spuretims
      LookupTable = dm.sppersonel
      LookupField = 'PerKod'
      Options = [loColLines, loTitles]
      Color = 14811135
      Navigator = False
      ParentFont = False
      ReadOnly = True
      TabOrder = 3
      AutoDropDown = True
      ShowButton = False
      UseTFields = False
      AllowClearKey = False
      ShowMatchText = True
      OnKeyPress = Sonraki
    end
    object edTopluSeriNoGir: TEdit
      Left = 72
      Top = 10
      Width = 153
      Height = 22
      TabOrder = 4
      OnKeyPress = edTopluSeriNoGirKeyPress
    end
  end
  object BitBtn1: TBitBtn
    Left = 471
    Top = 552
    Width = 65
    Height = 66
    Caption = 'Kapat'
    Font.Charset = TURKISH_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 4
    OnClick = BitBtn1Click
  end
  object fcButtonGroup1: TfcButtonGroup
    Left = 8
    Top = 551
    Width = 354
    Height = 69
    AutoBold = True
    BevelOuter = bvNone
    BorderStyle = bsSingle
    ButtonClassName = 'TfcShapeBtn'
    ClickStyle = bcsRadioGroup
    ControlSpacing = 1
    Columns = 1
    Font.Charset = TURKISH_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    Layout = loHorizontal
    MaxControlSize = 0
    TabOrder = 5
    Transparent = False
    OnChange = fcButtonGroup1Change
    object fcButtonGroup1fcShapeBtn1: TfcShapeBtn
      Tag = 1
      Left = 0
      Top = 0
      Width = 87
      Height = 65
      Caption = 'Yeni (*)'
      Color = clBtnFace
      DitherColor = clWhite
      Down = True
      Font.Charset = TURKISH_CHARSET
      Font.Color = clGreen
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      GroupIndex = 1
      NumGlyphs = 0
      ParentClipping = True
      ParentFont = False
      RoundRectBias = 25
      ShadeStyle = fbsHighlight
      TabOrder = 0
      TextOptions.Alignment = taCenter
      TextOptions.VAlignment = vaVCenter
    end
    object fcButtonGroup1fcShapeBtn2: TfcShapeBtn
      Tag = 2
      Left = 88
      Top = 0
      Width = 87
      Height = 65
      Caption = 'Devam (+)'
      Color = clBtnFace
      DitherColor = clWhite
      Font.Charset = TURKISH_CHARSET
      Font.Color = clGreen
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      GroupIndex = 1
      ParentClipping = True
      ParentFont = False
      RoundRectBias = 25
      ShadeStyle = fbsHighlight
      TabOrder = 1
      TextOptions.Alignment = taCenter
      TextOptions.VAlignment = vaVCenter
    end
    object fcButtonGroup1fcShapeBtn3: TfcShapeBtn
      Tag = 3
      Left = 176
      Top = 0
      Width = 87
      Height = 65
      Caption = #199#305'kart (-)'
      Color = clBtnFace
      DitherColor = clWhite
      Font.Charset = TURKISH_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      GroupIndex = 1
      ParentClipping = True
      ParentFont = False
      RoundRectBias = 25
      ShadeStyle = fbsHighlight
      TabOrder = 2
      TextOptions.Alignment = taCenter
      TextOptions.VAlignment = vaVCenter
    end
    object fcButtonGroup1fcShapeBtn4: TfcShapeBtn
      Tag = 4
      Left = 264
      Top = 0
      Width = 86
      Height = 65
      Caption = 'Par'#231'ala (/)'
      Color = clBtnFace
      DitherColor = clWhite
      Font.Charset = TURKISH_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      GroupIndex = 1
      ParentClipping = True
      ParentFont = False
      RoundRectBias = 25
      ShadeStyle = fbsHighlight
      TabOrder = 3
      TextOptions.Alignment = taCenter
      TextOptions.VAlignment = vaVCenter
    end
  end
  object GroupBox4: TGroupBox
    Left = 8
    Top = 502
    Width = 529
    Height = 47
    Caption = 'Test Eden Personel'
    TabOrder = 6
    object Label15: TLabel
      Left = 16
      Top = 24
      Width = 71
      Height = 16
      AutoSize = False
      Caption = 'Personel Kodu'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label16: TLabel
      Left = 240
      Top = 24
      Width = 71
      Height = 16
      AutoSize = False
      Caption = 'Personel Kodu'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object wwDBLookupCombo2: TwwDBLookupCombo
      Left = 328
      Top = 16
      Width = 185
      Height = 21
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      DisableThemes = False
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'pismi'#9'25'#9'pismi'#9'F'
        'pkodu'#9'5'#9'pkodu'#9'F'
        'PerKod'#9'10'#9'PerKod'#9'F')
      DataField = 'kperkod'
      DataSource = dm.spuretims
      LookupTable = dm.sppersonel
      LookupField = 'PerKod'
      Options = [loColLines, loTitles]
      Color = 14811135
      Navigator = False
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
      AutoDropDown = True
      ShowButton = False
      UseTFields = False
      AllowClearKey = False
      ShowMatchText = True
      OnKeyPress = Sonraki
    end
    object wwDBLookupCombo3: TwwDBLookupCombo
      Left = 96
      Top = 16
      Width = 105
      Height = 21
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      DisableThemes = False
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'pkodu'#9'5'#9'pkodu'#9'F')
      DataField = 'kperkod'
      DataSource = dm.spuretims
      LookupTable = dm.sppersonel
      LookupField = 'PerKod'
      Options = [loColLines, loTitles]
      Color = 14811135
      Navigator = False
      ParentFont = False
      ReadOnly = True
      TabOrder = 1
      AutoDropDown = True
      ShowButton = False
      UseTFields = False
      AllowClearKey = False
      ShowMatchText = True
      OnKeyPress = Sonraki
    end
  end
  object bbitir: TBitBtn
    Left = 366
    Top = 551
    Width = 99
    Height = 66
    Caption = 'B'#304'T'#304'R - F2'
    Font.Charset = TURKISH_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 7
    OnClick = bbitirClick
  end
  object PHizliMontaj: TPanel
    Left = 242
    Top = 202
    Width = 293
    Height = 301
    TabOrder = 8
    Visible = False
    object Label10: TLabel
      Left = 24
      Top = 18
      Width = 35
      Height = 14
      Caption = 'Seri No'
    end
    object Bevel1: TBevel
      Left = 24
      Top = 38
      Width = 248
      Height = 2
    end
    object BHSil: TSpeedButton
      Left = 67
      Top = 268
      Width = 62
      Height = 22
      Caption = 'Sil'
      OnClick = BHSilClick
    end
    object bHKapat: TSpeedButton
      Left = 200
      Top = 268
      Width = 60
      Height = 22
      Caption = 'Kapat'
      OnClick = bHKapatClick
    end
    object HSeriNok: TEdit
      Left = 70
      Top = 9
      Width = 193
      Height = 22
      CharCase = ecUpperCase
      TabOrder = 0
      OnKeyPress = HSeriNokKeyPress
    end
    object Hlistek: TListBox
      Left = 69
      Top = 46
      Width = 193
      Height = 216
      ItemHeight = 14
      TabOrder = 1
    end
  end
  object adetk: TStaticText
    Left = 485
    Top = 154
    Width = 45
    Height = 46
    Alignment = taRightJustify
    AutoSize = False
    BiDiMode = bdLeftToRight
    Caption = '0'
    Color = clBtnFace
    Font.Charset = TURKISH_CHARSET
    Font.Color = clRed
    Font.Height = -37
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentBiDiMode = False
    ParentColor = False
    ParentFont = False
    TabOrder = 9
    Transparent = False
  end
  object duzeltyetkisik: TPanel
    Tag = 1002
    Left = 312
    Top = 163
    Width = 54
    Height = 27
    BevelOuter = bvNone
    TabOrder = 10
  end
  object pnlBandTip: TPanel
    Left = 432
    Top = 0
    Width = 107
    Height = 33
    Font.Charset = TURKISH_CHARSET
    Font.Color = clRed
    Font.Height = -24
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 13
  end
  object EmirListesi: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'emirno'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      
        'select top 1 * from unity_emirlistesi where aktarilanuremrino=:e' +
        'mirno and isnull(eslestirilenadet,0)<>adet'
      'order by acil desc')
    Left = 20
    Top = 576
  end
  object EmirListesiEksilt: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'siparisharid'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select * from unity_emirlistesi'
      'where siparisharid=:siparisharid')
    Left = 84
    Top = 576
  end
  object FatharharBul: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'serinos'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end>
    SQL.Strings = (
      'select * from fatharhar'
      'where serinos=:serinos')
    Left = 308
    Top = 504
  end
  object UremriHar_Artir: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'id'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'update uremrihar'
      'set yapilan=isnull(yapilan,0)+1'
      'where id=:id')
    Left = 236
    Top = 504
  end
  object UremriHar_Eksilt: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'id'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'update uremrihar'
      'set yapilan=yapilan-1'
      'where id=:id')
    Left = 156
    Top = 576
  end
  object YaziciKontrol: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'makinano'
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      
        'select uretimno,stokkodu=(select stokkodu from stok where stok.s' +
        'tokkod=uretim.uretimkod) from uretim where makinano=:makinano')
    Left = 236
    Top = 576
  end
  object YapaniYaz: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      'update uretim'
      'set perkod=:perkod,durum=:durum'
      'where makinano=@makinano'
      '')
    Left = 308
    Top = 576
  end
  object ModelDegistir_Fatharhar: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'stokkod'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'serinos'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end>
    SQL.Strings = (
      'update fatharhar'
      'set stokkod=:stokkod'
      'where serinos=:serinos')
    Left = 404
    Top = 576
  end
  object ModelDegistir_StokkodBul: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'emirno'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select * from uremrihar'
      'where emirno=:emirno'
      'order by urunck')
    Left = 404
    Top = 504
  end
  object ModelDegistir_Uretim: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'uretimno'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'uretimkod'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'makinano'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    SQL.Strings = (
      'update uretim'
      'set uretimno=:uretimno,uretimkod=:uretimkod'
      'where makinano=:makinano'
      '')
    Left = 156
    Top = 504
  end
  object MakineListesi: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'Uretimno'
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      'select makinano from uretim where uretimno=:Uretimno')
    Left = 20
    Top = 632
  end
  object TimerMontajDurum: TTimer
    Enabled = False
    Interval = 60000
    OnTimer = TimerMontajDurumTimer
    Left = 84
    Top = 448
  end
  object MontajDurumQ: TADOQuery
    Connection = dm.connect
    Parameters = <>
    SQL.Strings = (
      'select perkod,count(*) as sayi from uretim'
      
        'where tarih>='#39'18.10.2005'#39' and tarih<='#39'21.10.2005'#39' and (select gr' +
        'up from stok where stok.stokkod=uretim.uretimkod)=5 and paket is' +
        ' null and  montajtarih is null and testt is null'
      'and (perkod=125 or perkod=126 or perkod=127 or perkod=153)'
      'group by perkod')
    Left = 84
    Top = 504
  end
  object Banttipi: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * from tbl_bandtanim')
    Left = 368
    Top = 320
  end
  object SBantipi: TDataSource
    DataSet = Banttipi
    Left = 480
    Top = 496
  end
  object MainMenu1: TMainMenu
    Left = 24
    Top = 222
    object Dosya1: TMenuItem
      Caption = 'Dosya'
      object Yeni1: TMenuItem
        Caption = 'Yeni'
        ShortCut = 115
        OnClick = Yeni1Click
      end
      object Devam1: TMenuItem
        Caption = 'Devam'
        ShortCut = 118
        OnClick = Devam1Click
      end
      object kart1: TMenuItem
        Caption = #199#305'kart'
        ShortCut = 117
        OnClick = kart1Click
      end
      object Parala1: TMenuItem
        Caption = 'Par'#231'ala'
        ShortCut = 119
        OnClick = Parala1Click
      end
      object Bitir1: TMenuItem
        Caption = 'Bitir'
        ShortCut = 113
        OnClick = Bitir1Click
      end
      object Yazdr1: TMenuItem
        Caption = 'Yazd'#305'r'
        ShortCut = 120
        OnClick = Yazdr1Click
      end
    end
  end
  object emirhar: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'emirno'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select * from uremrihar'
      'where emirno=:emirno')
    Left = 48
    Top = 7
  end
  object stoksor: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'serinos'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end>
    SQL.Strings = (
      
        'select f.stokkod ,f.makinano,s.stokkodu,s.cinsi ,s.grup,s.model,' +
        's.agrup from fatharhar f ,stok s'
      'where (f.serinos=:serinos) and (s.stokkod=f.stokkod)')
    Left = 88
    Top = 286
  end
  object fathar: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'bilisno'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select * from fathar '
      'where bilisno=:bilisno')
    Left = 120
    Top = 56
  end
  object makno: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'makinano'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    SQL.Strings = (
      
        'SELECT     uretim.makinano, uretim.uretimno, stok.stokkod, stok.' +
        'cinsi, uretim.tarih, perkart.personelno, perkart.adi, perkart.so' +
        'yadi'
      'FROM         uretim INNER JOIN'
      
        '                      stok ON uretim.uretimkod = stok.stokkod IN' +
        'NER JOIN'
      '                      perkart ON uretim.perkod = perkart.perkod'
      'WHERE     (uretim.makinano = :makinano)')
    Left = 104
    Top = 399
  end
  object makiancount: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'makinano'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    SQL.Strings = (
      'select stok.Grup from fatharhar, stok'
      'where (stok.stokkod=fatharhar.stokkod) and (makinano=:makinano)'
      'group by stok.Grup'
      '')
    Left = 80
    Top = 344
  end
  object Tamalandi: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'emirno'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select * FRom  Uremrihar'
      'Where (urunck='#39'C'#39') and emirno=:emirno')
    Left = 352
    Top = 120
  end
  object versionb: TADOQuery
    Connection = dm.connect
    Parameters = <>
    SQL.Strings = (
      'select * from servis')
    Left = 288
    Top = 124
  end
  object kontrol: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'stokkod'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'makinano'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    SQL.Strings = (
      'select fatharhar.serinos, fatharhar.makinano from fatharhar'
      'where (stokkod=:stokkod) and (makinano=:makinano)  ')
    Left = 496
    Top = 121
  end
  object recetemiktar: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'partino'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'stokkod'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select * from recetehar'
      'where (receteid=:partino) and (stokkod=:stokkod)')
    Left = 424
    Top = 121
  end
  object emirli: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'ciktidepo'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 't1'
        Size = -1
        Value = Null
      end
      item
        Name = 't2'
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      'select * from Uremri'
      'Where  ciktidepo=:ciktidepo and tarih between :t1 and :t2'
      'order by emirno')
    Left = 412
    Top = 192
  end
  object emirlishar: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    DataSource = emirliS
    Parameters = <
      item
        Name = 'emirno'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end>
    SQL.Strings = (
      'select * from uremrihar'
      
        'Where (((select top 1 izlemeturu from stok where stok.stokkod=ur' +
        'emrihar.stokkod)=2) or (stokkodu like '#39'bk%'#39')) and emirno=:emirno'
      'order by urunck')
    Left = 412
    Top = 240
  end
  object emirliS: TDataSource
    DataSet = emirli
    Left = 348
    Top = 192
  end
  object dsemirlishar: TDataSource
    DataSet = emirlishar
    Left = 348
    Top = 240
  end
  object durum: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'emirno'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select * from uremri'
      'Where emirno=:emirno')
    Left = 48
    Top = 114
  end
  object bul: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select makinano,stokkod,'
      
        '       uretimkod=(select top 1 uretimkod from uretim where ureti' +
        'm.makinano=fatharhar.makinano),'
      
        '       uretimno=(select top 1 uretimno from uretim where uretim.' +
        'makinano=fatharhar.makinano) from fatharhar'
      'where serinos='#39'H100'#39)
    Left = 48
    Top = 58
  end
  object yazici: TRAWPrinter
    TrControl = True
    Left = 22
    Top = 344
  end
  object StokkodBul: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'serinos'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end>
    SQL.Strings = (
      'select stokkod from fatharhar'
      'Where serinos=:serinos')
    Left = 96
    Top = 226
  end
  object NoteBookKasaNoBul: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'makinano'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    SQL.Strings = (
      
        'select serinos from fatharhar where (select grup from stok where' +
        ' stok.stokkod=fatharhar.stokkod)='#39'70'#39' and makinano=:makinano')
    Left = 120
    Top = 114
  end
  object ServerTarihQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'serinos'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end>
    SQL.Strings = (
      'SELECT GETDATE()')
    Left = 24
    Top = 286
  end
  object spHizliUretim: TADOStoredProc
    Connection = dm.connect
    ProcedureName = 'sp_hizli_uretim;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@serinosayi'
        Attributes = [paNullable]
        DataType = ftSmallint
        Precision = 5
        Value = Null
      end
      item
        Name = '@perkod'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@emirno'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@makinestokkod'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@serinolar'
        Attributes = [paNullable]
        DataType = ftString
        Size = 500
        Value = Null
      end
      item
        Name = '@Out_Makinano'
        Attributes = [paNullable]
        DataType = ftString
        Direction = pdOutput
        Size = 10
        Value = Null
      end
      item
        Name = '@Out_HataliSerino'
        Attributes = [paNullable]
        DataType = ftString
        Direction = pdOutput
        Size = 50
        Value = Null
      end>
    Left = 274
    Top = 161
  end
  object isletimsisteminumarasibul: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'makinano'
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      
        'select stokkodu=(select stokkodu from stok where stok.stokkod=fa' +
        'tharhar.stokkod),serinos from fatharhar where makinano=:makinano' +
        ' and SUBSTRING((select stokkodu from stok where stok.stokkod=fat' +
        'harhar.stokkod),1,3)='#39'OS.'#39)
    Left = 48
    Top = 158
  end
  object VirusSeriNoBulQ: TADOQuery
    Connection = dm.connect
    Parameters = <>
    Left = 121
    Top = 8
  end
  object Perkartlist: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'PER'
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      
        'select Adi + '#39' '#39' + Soyadi As PerAdi from perkart where personeln' +
        'o=:PER')
    Left = 464
    Top = 448
  end
  object DSPerKartList: TDataSource
    DataSet = Perkartlist
    Left = 392
    Top = 448
  end
  object BandDurak: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'ID'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'Select * from tbl_banddurak  where BandID=:ID')
    Left = 496
    Top = 336
  end
  object DSBandDurak: TDataSource
    DataSet = BandDurak
    Left = 440
    Top = 384
  end
end
